home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok05 / memsystem / speicherfresser.mod < prev    next >
Text File  |  1993-11-04  |  179b  |  12 lines
  1. MODULE Speicherfresser;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4. FROM MemSystem IMPORT Allocate;
  5.  
  6. VAR    Adr:ADDRESS;
  7. BEGIN
  8.   REPEAT
  9.     Allocate(Adr,100);
  10.   UNTIL Adr=NIL;
  11. END Speicherfresser.
  12.